home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / f / final_writer / finalwriter4ukenglish1.dms / in.adf / FWMacros.lha / TxtLeading_Incr < prev    next >
Encoding:
Text File  |  1993-10-25  |  581 b   |  27 lines
  1. /* ================================================= */
  2. /* Set current paragraph to variable spacing and     */
  3. /*   increase leading by 1 point.                    */
  4. /* FinalWriter macro written by Ric Fischer - 7/7/93 */
  5. /* $VER: TxtLeading_Incr 3.0 (22.7.93)               */
  6. /* ================================================= */
  7.  
  8.  
  9. Options Results
  10.  
  11. Status ParaPos
  12. IF (Words(Result) > 2) THEN DO
  13.  
  14.    Status Spacing
  15.  
  16.    IF (Result ~= "Variable") THEN
  17.       Spacing Variable
  18.  
  19.    Status FontLeading
  20.  
  21.    Result = Result + 1
  22.  
  23.    IF ( Result <= 255 ) THEN
  24.       Leading Result
  25.  
  26. END
  27.